﻿<%
    Function checkfile(id)
        Dim fso, path, filename
        
        On Error resume Next

        Set fso = Server.CreateObject("Scripting.FileSystemObject")
        path = Server.MapPath("/") & "\..\database\images\"
        filename = path & Replace(id,".","") & ".pc"

        If fso.FileExists(filename) Then
            checkfile = TRUE
        Else
            checkfile = FALSE
        End If
    End Function
%>